#!/usr/bin/perl

use strict;
use DBI;
use CGI;
use TTraker;

initialize_dbi();
print_header();

my $query = CGI->new;
my $num = $query->param('num');

my $sent_from = $ENV{'REMOTE_ADDR'};
my $now = get_now();
my $string = "$now,$sent_from,${cgi_ref}trak_00_start_up.pl";

if ($num =~ /^\d+$/ ) {
	end_system_time ($num, "ALL", $now);
	update_system_elapsed_time ($num );
}  

log_info ($string);

log_in_screen_from_pm();

db_disconnect();


